home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nebula 2
/
Nebula Two.iso
/
WebObjects
/
SourceCode
/
CalendarRadio.wo
/
CalendarRadioExample
/
CalendarRadioEx.wos
< prev
Wrap
Text File
|
1996-04-19
|
2KB
|
112 lines
////////////////////////
// CalendarRadio
// by Charles Lloyd
////////////////////////
persistent id userYear;
persistent id userMonth;
persistent id userDayChoice;
persistent id userCellPadding;
persistent id userCellSpacing;
persistent id userTableBorder;
persistent id userYearFontSize;
persistent id userMonthFontSize;
persistent id userDayFontSize;
persistent id userShowButtons;
persistent id userShowButtonsChecked;
persistent id userCellAlignment;
//This is only for the input fields for this lab
id inputCellSize;
id alignmentStrings;
- awake
{
if (!userYear) {
userYear = 1969;
userMonth = 5;
userDayChoice = 13;
userCellPadding = 0;
userCellSpacing = 0;
userTableBorder = 1;
userYearFontSize = 4;
userMonthFontSize = 5;
userDayFontSize = 3;
[self setUserShowButtonsChecked:YES];
userCellAlignment=@"Left";
}
alignmentStrings = @("Left", "Center", "Right");
inputCellSize=7;
}
- displayChoice
{
id aPage = [WOApp pageWithName:@"CalendarResult"];
[aPage setDayChoiceString:userDayChoice];
return aPage;
}
- setUserDayChoice:aString
{
userDayChoice = [aString intValue];
}
- reconfigureCalendar
{
return self;
}
- setUserYear:aString
{
userYear = [aString intValue];
}
- setUserMonth:aString
{
userMonth = [aString intValue];
}
- setUserCellPadding:aString
{
userCellPadding = [aString intValue];
}
- setUserCellSpacing:aString
{
userCellSpacing = [aString intValue];
}
- setUserTableBorder:aString
{
userTableBorder = [aString intValue];
}
- setUserYearFontSize:aString
{
userYearFontSize = [aString intValue];
}
- setUserMonthFontSize:aString
{
userMonthFontSize = [aString intValue];
}
- setUserDayFontSize:aString
{
userDayFontSize = [aString intValue];
}
- setUserShowButtonsChecked:aBool
{
userShowButtonsChecked = aBool;
if (userShowButtonsChecked) {
userShowButtons = aBool;
} else {
userShowButtons = nil;
}
}